Ian & Stuart's Australian Mac: Not for Sale/Another.not.for.sale (Australia).iso/fade into you/getting there/TCP⁄PPP⁄SLIP/Scripts/Annex-ITG

Text File | 1993-10-18 | 1.4 KB | 86 lines | [mlts/slnk]

! From: [e-mail] (John Werner)
! Newsgroups: comp.sys.mac.comm
! Subject: Re: SLIP on a Xylogics Annex
! Date: Sun, 17 Oct 1993 11:28:02 -0800
!
! [...stuff deleted...]
!
! Here's the script that Larry Gouger <[e-mail]> posted a
! few months ago:
!
! InterSLIP gateway script for the ITG annex
!
@originate
pause 60
note "Waiting for prompt"
write "\13"
matchclr
matchstr 1 1 "Annex username: "
matchread 120
note "Gateway not responding!"
jump 99
!
@label 1
note "Sending user name"
write "^5\13"
matchclr
matchstr 1 2 "Annex password:"
matchread 120
note "Gateway not responding!"
exit -1
!
@label 2
note "Sending password"
write "^6\13"
matchclr
matchstr 1 4 "ITG>"
matchstr 2 3 "Username/Password Incorrect"
matchread 120
jump 99
!
@label 3
note "Username/Password Incorrect"
jump 99
!
@label 99
pause 1
sound
pause 60
exit -1
!
@label 4
note "Requesting SLIP"
write "slip\13"
matchclr
matchstr 1 5 "Switching to SLIP"
matchread 120
note "Cannot switch to SLIP mode"
jump 99
!
@label 5
matchclr
matchexp 1 6 "Annex address is
[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\."
matchread 120
note "Gatway IP address not given"
jump 99
!
@label 6
matchclr
matchexp 1 7 "[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\.[0-9][0-9]*\\."
matchread 120
note "Your IP address not given"
jump 99
!
@label 7
note "Connected to ITG network. (^0)"
setip "^0"
setmtu "^9"
pause 60
exit 0
!
! currently unused:
!
@answer
@hangup
exit 0